home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / chief.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.2 KB  |  49 lines
  1. 10  PRINT " I AM CHIEF NUMBER FRIEK, THE GREAT INDIAN MATH GOD."
  2. 20  PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
  3. 30  INPUT A$
  4. 40  IF LEFT$ (A$,1)="Y" THEN 60
  5. 50  PRINT "SHUT UP PALEFACE WITH WISE TONGUE."
  6. 60  PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
  7. 70  PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
  8. 80  PRINT "WHAT DO YOU HAVE";
  9. 90  INPUT B
  10. 100  C=(B+1-5)*5/8*5-3
  11. 110  PRINT "I BET YOUR NUMBER WAS ";C;" WAS I RIGHT";
  12. 120  INPUT D$
  13. 130  IF LEFT$ (D$,1)="Y" THEN 510
  14. 140  PRINT "WHAT WAS YOUR ORIGINAL NUMBER";
  15. 150  INPUT K
  16. 160  F=K+3
  17. 165  G=F/5
  18. 170  H=G*8
  19. 180  I=H/5+5
  20. 190  J=I-1
  21. 200  PRINT "SO YOU THINK YOUR SO SMART, EH?"
  22. 210  PRINT "NOW WATCH...."
  23. 220  PRINT K;"+3=";F;". THIS DIVIDED BY 5 =";G;","
  24. 230  PRINT "THIS * 8 =";H;". IF WE DIVIDE BY 5 AND ADD THE SAME,"
  25. 240  PRINT "WE GET ";I;". -1 = ";J;"."
  26. 250  PRINT "NOW DO YOU BELIEVE ME"; : INPUT Z$
  27. 260  IF LEFT$(Z$,1)="Y" THEN 510
  28. 295  PRINT "YOU HAVE MADE ME MAD!!!"
  29. 300  PRINT "THERE MUST BE A GREAT LIGHTNING BOLT!"
  30. 310  PRINT : PRINT
  31. 320  FOR X = 30 TO 22 STEP -1
  32. 340  PRINT TAB(X); "X X"
  33. 350  NEXT X
  34. 360  PRINT TAB(21);"X XXX"
  35. 370  PRINT TAB(20);"X   X"
  36. 380  PRINT TAB(19);"XX XXX"
  37. 390  FOR Y = 20 TO 13 STEP -1
  38. 400  PRINT TAB(Y);"X X"
  39. 410  NEXT Y
  40. 420  PRINT TAB(12);"XX"
  41. 430  PRINT TAB(11);"X"
  42. 440  PRINT TAB(10);"*"
  43. 450  PRINT
  44. 460  PRINT "################################" : PRINT
  45. 470  PRINT "I HOPE YOU BELIEVE ME NOW FOR YOUR SAKE!!!"
  46. 480  GOTO 520
  47. 510  PRINT "BYE"
  48. 520  END
  49.